COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "textex"
C00008 ENDMK
C⊗;
begin "textex"
require "⊂⊃≤≥" delimiters;
define crlf = ⊂('15&'12)⊃;
integer ch,dummy,inputchannel,eof,flag,break_character,tb;
integer outflag, eofoutput;
string name, line_of_stuff;

procedure openoutputfile;
begin
ch←getchan;
open (ch,"dsk",0,0,2,dummy,dummy,eofoutput);
ENTER (CH, "WAVES.DAT", FLAG);
if flag then begin print ("CAN'T OPEN WAVES.DAT"); call (0,"exit") end;
end;

procedure open_input_file_and_get_switches;
begin
inputchannel ← getchan;
open (inputchannel,"dsk",0,2,0,250,break_character,eof);
do
	begin
COMMENT:print (crlf, "Input file:");
COMMENT:name←inchwl;
	lookup (inputchannel,"WAVES.DAT",flag);
	if flag then print ("Can't open input file ", name, crlf);
	end
until not flag;
PRINT (CRLF,"READING WAVES.DAT",CRLF);
tb←getbreak;
setbreak (tb, '14 & '12, '15, "ins");
end;

procedure mess_with_each_input_line_at_this_point;
begin

dummy←dummy;
end;

procedure get_the_next_input_line;
begin
line_of_stuff ← input (inputchannel,tb);
mess_with_each_input_line_at_this_point;
end;


open_input_file_and_get_switches;
openoutputfile;
get_the_next_input_line;
while not eof do
	begin
comment	if break_character = '14
	then out (ch,line_of_stuff & '14)
	else out (ch,line_of_stuff & crlf);
	out (ch,line_of_stuff & '23);
	get_the_next_input_line;
	end;
release (ch);
release (inputchannel);

comment:print (crlf, "ERASE.DAT WAS WRITTEN");
print (crlf,"Print WAVES.DAT",crlf);
PRINT (CRLF,"Be sure to erase WAVES.DAT when done.",crlf);
end "textex";